<script>on mouseWithinglobal keyput the selectedText into itif it is not empty then put the selectedText into keyend mouseWithin</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>312</left>
<top>84</top>
<right>499</right>
<bottom>253</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>INSTRUCTIONS</name>
<script>on mouseWithinglobal keyput the selectedText into itif it is not empty then put the selectedText into keyend mouseWithin</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>95</left>
<top>29</top>
<right>497</right>
<bottom>66</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>24</textSize>
<textStyle>shadow</textStyle>
<textStyle>bold</textStyle>
<textHeight>32</textHeight>
<name>NAME</name>
<script>on mouseWithinglobal keyput the selectedText into itif it is not empty then put the selectedText into keyend mouseWithin</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>98</left>
<top>272</top>
<right>443</right>
<bottom>338</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>12</textSize>
<textStyle>shadow</textStyle>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>CONTRIBUTOR</name>
<script>on mouseWithinglobal keyput the selectedText into itif it is not empty then put the selectedText into keyend mouseWithin</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>12</left>
<top>82</top>
<right>84</right>
<bottom>141</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>10564</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>TOOLS</name>
<script>on mouseDownpush cardlock screengo to first card in bg "TOOLS"unlock screen with iris openend mouseDown</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>12</left>
<top>281</top>
<right>84</right>
<bottom>340</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>29114</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>INTRODUCTION</name>
<script>on mouseUpvisual effect dissolve slowlygo to card "Title3"end mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>49</left>
<top>149</top>
<right>84</right>
<bottom>208</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>27009</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>NEXT</name>
<script>on mouseUplock screengo to next card in this backgroundunlock screenend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>12</left>
<top>149</top>
<right>47</right>
<bottom>208</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>9301</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>PREV</name>
<script>on mouseUplock screengo to previous card in this backgroundunlock screenend mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>12</left>
<top>15</top>
<right>84</right>
<bottom>74</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>14421</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>WINE</name>
<script>on mouseUpsend booze to background recipesend mouseUp</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>311</left>
<top>254</top>
<right>399</right>
<bottom>271</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>glass</name>
<script></script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>12</left>
<top>214</top>
<right>47</right>
<bottom>273</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5472</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>FIRST</name>
<script>on mouseUplock screengo to first card in this backgroundunlock screenend mouseUp</script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>49</left>
<top>214</top>
<right>84</right>
<bottom>273</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>766</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>LAST</name>
<script>on mouseUplock screengo to last card in this backgroundunlock screenend mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>443</left>
<top>283</top>
<right>474</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>133</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>XREF</name>
<script>-- © 1990,1991 by Bernhard S. Wieser- © April 1991 by Bernhard S. Wieser and Octavian Micro Development- ALL RIGHTS RESERVED.-on mouseUpglobal keyif key is empty thenplay burpanswer "No selected search key." with "Silly me!"elseset cursor to busylock screenput id of this card into xgo to next card in this bgput FALSE into foundrepeat until found is TRUEfind string keyset cursor to busyif the foundText is empty thenput TRUE into foundelseput the short name of this bg into yif y is not "recipes" thengo to first card of bg "recipes"elseput TRUE into foundend ifend ifend repeatif the id of this card is x or the foundText is empty thenplay burpif the foundText is empty thengo to previous card in this bgunlock screenend ifanswer "Couldn't find text containing '"&key&"'." with "Okay"elseunlock screenif (the short name of the foundField is "glass") thenput 0 into xrepeat until x is 3set hilite of bg button id 14 to TRUEwait 1set hilite of bg button id 14 to FALSEput (x + 1) into xend repeatend ifend ifend ifend mouseUp</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>478</left>
<top>283</top>
<right>509</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>25185</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>PRINT</name>
<script>-- © 1990,1991 by Bernhard S. Wieser- © April 1991 by Bernhard S. Wieser and Octavian Micro Development- ALL RIGHTS RESERVED.-on mouseUpglobal statuslock screenset cantModify of this stack to FALSEsend clear to bg "PPRINT"push cardput first word of bg field glass into itgo to bg "PPRINT"if it is not empty thenset icon of bg button ID "6" to itshow bg button ID "6"end ifpop cardpush cardput field "NAME" into itgo to bg "PPRINT"put it into field "PNAME"pop cardpush cardput field "INGREDIENTS" into itgo to bg "PPRINT"put it into field "PINGREDIENTS"pop cardpush cardput field "INSTRUCTIONS" into itgo to bg "PPRINT"put it into field "PINSTRUCTIONS"pop cardpush cardput field "CONTRIBUTOR" into itgo to bg "PPRINT"put it into field "PCONTRIBUTOR"pop cardprint first card of bg "PPRINT"send clear to bg "PPRINT"set cantModify of this stack to statusunlock screenend mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>478</left>
<top>312</top>
<right>509</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>131</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>HOME</name>
<script>on mouseUpgo homeend mouseUp</script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>443</left>
<top>312</top>
<right>474</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>130</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>QUERY</name>
<script>on mouseUpglobal keyif key is empty thenplay burpanswer "No selected search key." with "Okay!"elselock screenpush cardgo to card "Glossary"unlock screen with iris opensend Findmeend ifend mouseUp</script>
</part>
<part>
<id>24</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>443</left>
<top>255</top>
<right>474</right>
<bottom>279</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>132</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>LOOK</name>
<script>on mouseUpglobal keyask "Enter search key:" with keyif it is not empty thenput it into keysend mouseUp to bg button "XREF"end ifend mouseUp</script>
</part>
<part>
<id>25</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>478</left>
<top>255</top>
<right>509</right>
<bottom>279</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>139</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ND</name>
<script>on mouseUpglobal lenl, numllock screenput ((lenl + 1) mod numl) into lenlput line (lenl+1) of card field "Suggestions" in card "Suggest Drink"¬into itfind whole it in bg field "NAME"unlock screenend mouseUp</script>
</part>
<name>recipes</name>
<script>-- © 1990,1991 by Bernhard S. Wieser- © April 1991 by Bernhard S. Wieser and Octavian Micro Development- ALL RIGHTS RESERVED.-on boozeput third word of name of background button 5 into itif it contains "SHOOTER" thenanswer "SHOT GLASS: 1 - 2 oz." with "OKAY"end ifif it contains "WINE" thenanswer "WINE GLASS: 4 - 5 oz." with "OKAY"end ifif it contains "PUNCH" thenanswer "PUNCH BOWL: as BIG as necessary!" with "PARTY"end ifif it contains "BRANDY" thenanswer "BRANDY GLASS: 3 oz." with "OKAY"end ifif it contains "HIGHBALL" thenanswer "HIGHBALL GLASS: 8 oz." with "OKAY"end ifif it contains "COCKTAIL" thenanswer "COCKTAIL GLASS: 3 - 4 oz." with "OKAY"end ifif it contains "MARTINI" thenanswer "MARTINI GLASS: 4 oz." with "OKAY"end ifif it contains "TANKARD" thenanswer "TANKARD: 10+ oz." with "OKAY"end ifif it contains "WHISKEY" thenanswer "OLD FASHIONED: 6 - 8 oz." with "OKAY"end ifif it contains "COLLINS" thenanswer "TALL COLLINS: 10 - 14 oz." with "OKAY"end ifif it contains "CORDIAL" thenanswer "CORDIAL: 1 - 2 oz." with "OKAY"end ifif it contains "CHAMPAGNE" thenanswer "CHAMPAGNE SAUCER: 8 oz." with "OKAY"end ifend boozeon openCardglobal numlput first word of background field glass into itif it is not empty thenset icon of background button ID "14" to itset name of background button ID "14" to itend ifif (numl is 0) or (numl is empty) then hide bg button "ND"else show bg button "ND"end openCardon openBackgroundglobal numlput the number of lines in cd field "Suggestions" in card "Suggest Drink"¬into numlend openBackgroundon newCardput "Put your name here!" into field "CONTRIBUTOR"put "Place comprehensive instructions here!" into field "INSTRUCTIONS"put "List ingredients here!" into field "INGREDIENTS"put "Drink Name Here!" into field "NAME"end newCardon deleteCardgo to next card in this bgend deleteCard</script>
